home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / merge change 2.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  26 lines
  1. 1 printchr$(14)"[147]"tab(13)"[199]eomerge [195]hange"tab(53)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  2. 2 poke53280,6:poke53281,6:printtab(18)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 3 printtab(160)"[194]itte legen [211]ie die [199][197][207][211] 2.0"
  4. 4 print"[193]pplikationsdiskette in das [204]aufwerk"tab(80)"und druecken eine [212]aste"
  5. 5 wait203,64,64:open1,8,15,"i":open2,8,2,"#":print#1,"u1"2;0;18;0
  6. 6 print#1,"b-p";2;190:get#2,a$:a=asc(a$+chr$(0)):print#1,"b-p";2;191
  7. 7 get#2,b$:b=asc(b$+chr$(0)):close2
  8. 8 poke53280,0:poke53281,0:print"[145][145][145][215]rite [213]tilities in das [204]aufwerk      "
  9. 9 wait203,64,64:open2,8,2,"#":print#1,"u1:"2;0;18;0
  10. 10 print#1,"m-w"chr$(190)chr$(05)chr$(1)chr$(a):s=105:gosub22
  11. 11 print#1,"m-w"chr$(191)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;18;0:close2
  12. 12 poke53280,8:poke53281,8:print"[145][211]ystemdiskette in das [204]aufwerk  "
  13. 13 wait203,64,64:open2,8,2,"#":print#1,"u1"2;0;20;5
  14. 14 print#1,"b-p";2;197:get#2,a$:a=asc(a$+chr$(0))
  15. 15 print#1,"b-p";2;198:get#2,b$:b=asc(b$+chr$(0)):close2
  16. 16 poke53280,9:poke53281,9:print"[145][215]rite [213]tilities in das [204]aufwerk "
  17. 17 wait203,64,64:open2,8,2,"#"
  18. 18 print#1,"u1:"2;0;15;3:print#1,"m-w"chr$(252)chr$(05)chr$(1)chr$(a)
  19. 19 print#1,"m-w"chr$(253)chr$(05)chr$(1)chr$(b)
  20. 20 s=8:gosub22:print#1,"u2:"2;0;15;3
  21. 21 close2:close1:print"[199]eomerge an [211]ystem angepasst":end
  22. 22 print#1,"b-p";2;146:get#2,t$:t=asc(t$+chr$(0)):ift<>sthen24
  23. 23 return
  24. 24 print"[147][198]alsche [196]iskette, breche [198]organg ab,"tab(80)"um [211]chaden zu vermeiden!"
  25. 25 close2:close1:end
  26.